home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / a_to_d / dateselt / datedm1a.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  1.8 KB  |  84 lines
  1. unit Datedm1a;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls, Dateselt;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Interval: TRadioGroup;
  13.     OKBtn: TButton;
  14.     CancelBtn: TButton;
  15.     Label3: TLabel;
  16.     Bevel3: TBevel;
  17.     GroupBox1: TGroupBox;
  18.     Label1: TLabel;
  19.     DateSelect1: TDateSelect;
  20.     Label2: TLabel;
  21.     DateSelect2: TDateSelect;
  22.     CurrentDate: TLabel;
  23.     procedure IntervalClick(Sender: TObject);
  24.     procedure CancelBtnClick(Sender: TObject);
  25.     procedure OKBtnClick(Sender: TObject);
  26.     procedure FormActivate(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  32.  
  33. var
  34.   Form1: TForm1;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TForm1.IntervalClick(Sender: TObject);
  41. begin
  42.   case Interval.ItemIndex of
  43.      0:
  44.         begin
  45.           DateSelect1.Date_Interval := dsDay;
  46.           DateSelect2.Date_Interval := dsDay;
  47.         end;
  48.      1:
  49.         begin
  50.           DateSelect1.Date_Interval := dsWeek;
  51.           DateSelect2.Date_Interval := dsWeek;
  52.         end;
  53.      2:
  54.         begin
  55.           DateSelect1.Date_Interval := dsMonth;
  56.           DateSelect2.Date_Interval := dsMonth;
  57.         end;
  58.      3:
  59.         begin
  60.           DateSelect1.Date_Interval := dsYear;
  61.           DateSelect2.Date_Interval := dsYear;
  62.         end;
  63.   end;
  64. end;
  65.  
  66. procedure TForm1.CancelBtnClick(Sender: TObject);
  67. begin
  68.   Self.Close;
  69. end;
  70.  
  71. procedure TForm1.OKBtnClick(Sender: TObject);
  72. begin
  73.   Self.Close;
  74. end;
  75.  
  76. procedure TForm1.FormActivate(Sender: TObject);
  77. begin
  78.   CurrentDate.Caption := DateToStr(Date);
  79.   DateSelect1.DateCode := Date;
  80.   DateSelect2.DateCode := Date;
  81. end;
  82.  
  83. end.
  84.